home *** CD-ROM | disk | FTP | other *** search
/ Revolution - Das Atari CD Magazin 1997 / Revolution - Das Atari CD Magazin 1.iso / software / anwendng / utility / gemlabel / module.prj / stc.gfa / draw.gfa (.txt) next >
GFA-BASIC Atari  |  1996-07-21  |  1KB  |  62 lines
  1. '
  2. ' Startupcode für ein GEMLABEL-Draw-Modul
  3. '
  4. DIM ck#(3)
  5. info$="GLBLMODLDRAW Modulbeschreibung ¯"
  6. cmd$=""
  7. cmdl#=PEEK(BASEPAGE+128)
  8. IF cmdl#<>0 THEN
  9.   FOR i%=1 TO cmdl#
  10.     cmd$=cmd$+CHR$(PEEK(BASEPAGE+128+i%))
  11.   NEXT i%
  12.   IF LEFT$(cmd$,4)="GLMD" THEN
  13.     @split_args(cmd$)
  14.     cx#=ck#(0) ! Clipping-Koordinaten werden übergeben
  15.     cy#=ck#(1)
  16.     cw#=ck#(2)
  17.     ch#=ck#(3)
  18.     @modul
  19.   ELSE
  20.     IF LEFT$(cmd$,3)="GLM" THEN
  21.       ALERT 1," | Dies ist ein | GEMLABEL-Draw-Modul ! ",1,"Abbruch",but#
  22.     ELSE
  23.       @glm_mod
  24.     ENDIF
  25.   ENDIF
  26. ELSE
  27.   @glm_mod
  28. ENDIF
  29. END
  30. PROCEDURE split_args(a$)
  31.   LOCAL p#,y#
  32.   p#=INSTR(a$," ")
  33.   IF p#<>0 THEN
  34.     y#=0
  35.     WHILE p# AND y#<4
  36.       ck#(y#)=VAL(MID$(a$,p#))
  37.       p#=INSTR(p#+1,a$," ")
  38.       y#=y#+1
  39.     WEND
  40.   ENDIF
  41. RETURN
  42. PROCEDURE glm_mod
  43.   PRINT CHR$(13);CHR$(10);
  44.   PRINT " Modulname, Version, Datum                 "
  45.   PRINT " Written by Ihr Name                       "
  46.   PRINT
  47.   PRINT " Dies ist ein Modul für GEMLABEL und       "
  48.   PRINT " Copyrighthinweis oder FREEWARE/SHAREWARE  "
  49.   PRINT " Es kann nur von GEMLABEL gestartet werden "
  50.   PRINT
  51.   PRINT " GEMLABEL written 1995 by Volker Janzen    "
  52.   PRINT
  53.   PRINT " -Taste-                                   "
  54.   REPEAT
  55.   UNTIL LEN(INKEY$)
  56. RETURN
  57. PROCEDURE modul
  58.   ' Hier steht die Routine von ihrem Modul
  59.   ' Damit hier was steht:
  60.   PRINT "Clipping:";cx#,cy#,cw#,ch#
  61. RETURN
  62.